﻿Public Class YoklamaIadeIsleme
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Yoklama iade işleme", "Kimlik numarasını girin.")
				AddField("@Kimlik", "nl", "", "Kimlik numarasını girmek zorundasınız.")
				StartBody()
				AddText("hturu", "Hesap Türü", "readonly;width=6")
				AddText("kararno", "Karar No.", "nl;readonly;width=6")
				AddText("adi", "Adı Soyadı", "nl;readonly;width=25;colspan=9")
				AddText("telefon", "Telefon", "nl;width=12;colspan=9")
				AddText("adr", "No/Sokak", "nl;width=25;colspan=9")
				AddText("adrsemt", "Bölge/Köy", "nl;width=25;colspan=9")
				AddText("adrsehir", "Şehir/Kaza", "nl;width=25;colspan=9")
			Case EventType.ValidateForm
				Rs = Emeklilik.KimlikAra(Remote, Input("Kimlik"))
				If Check("Kimlik", Rs.EOF, "Kimlik bulunamadı") Then Exit Sub
				If Rs.Rows.Count > 1 Then
					Dim Dialog As New EmeklilikKisiBilgileriSec
					Dialog.AddArgument("rs", Rs)
					Dialog.Run(Window)
					If Dialog.Result = "" Then Exit Sub
					Dim Items = Split(Dialog.Result, "|")
					Rs = Emeklilik.MaasBilgisi(Remote, Items(0), Items(1), Items(2))
				End If
				rowid = Rs("rowid")
				SetValues("hturu,kararno,adi", Rs("hturu"), Rs("kararno"), Trim(Rs("adi")) & " " & Trim(Rs("soyadi")))
				SetValues("telefon,adr,adrsemt,adrsehir", Rs("telefon"), Rs("adr"), Rs("adrsemt"), Rs("adrsehir"))
				If IsDBNull(Rs("yoklama")) Then Info("Bu kişinin yoklama bildirgesi verme yükümlülüğü yoktur.") : Exit Sub
				If Rs("yoklama") = "İ" Then Info("Bu kişinin yoklama iadesi daha önce girilmiştir.")
				Help = "Kişi bilgileri aşağıda listelenmiştir. Yoklama bildirgesi iade işlemi için Kaydet tuşuna basın."
				Buttons.Show("Save.Reset")
				e.Result = True
			Case EventType.Save
				If Not Confirm("Bilgileri görüntülenen kişinin yoklama bildirgesini iade edilmiş olarak işlemek istediğinizden emin misiniz?") Then Exit Sub
				Emeklilik.Yoklama.IadeIsle(Remote, Input("hturu"), Input("kararno"), Input("Kimlik"), Input("telefon"), Input("adr"), Input("adrsemt"), Input("adrsehir"))
				Log("yasmaasbil", "yoklama", rowid)
				Info("Yoklama iade bilgisi işlenmiştir.")
				Reset()
		End Select
	End Sub

End Class
